home *** CD-ROM | disk | FTP | other *** search
/ FishMarket 1.0 / FishMarket v1.0.iso / fishies / 476-500 / disk_499 / diglib / diglib.lzh / source / GSDRVR.for < prev    next >
Text File  |  1991-05-01  |  897b  |  46 lines
  1.         SUBROUTINE GSDRVR(IFXN,X,Y)
  2.         IMPLICIT NONE
  3.         INTEGER IFXN,MAXDEV
  4.         REAL*4 X,Y
  5. C
  6. C
  7.         INCLUDE DIGLIB$KOM:GCDSEL.PRM
  8. C       Remember to edit GSDNAM also.
  9.         DATA MAXDEV /1/
  10. C
  11. C       SEE IF DEVICE EXISTS
  12. C
  13. D    WRITE(9,1234)IDEV,IFXN
  14. D1234    FORMAT(1X,"GSDRVR: IDEV IFXN", 2I4)
  15.  
  16.         IF (IDEV .GT. 0 .AND. IDEV .LE. MAXDEV) GO TO 50
  17. C
  18. C       NON-EXISTANT DEVICE, SO SEE IF USER IS JUST ENQUIRING??
  19. C
  20.         IF (IFXN .NE. 7) RETURN
  21. C
  22. C       RETURN DEVICE TYPE EQUAL ZERO IF ENQUIRING ABOUT NON-EXISTANT
  23. C        DEVICE.
  24. C
  25.         X = 0.0
  26.         RETURN
  27. C
  28. C       DISPATCH TO THE PROPER DRIVER
  29. C
  30. 50      CONTINUE
  31.         GO TO (100,200) IDEV
  32. C
  33. C     DEVICE 1 IS STANDARD 13" AMIGA OR SONY MONITOR, HI-RES, 16 COLORS
  34. C
  35. 100     CONTINUE
  36.         CALL GD13HI(IFXN,X,Y)
  37.         RETURN
  38. C
  39. C dummy hook for later drivers
  40. C
  41. 200     CONTINUE
  42.         RETURN
  43. C
  44.         END
  45.  
  46.